﻿Imports BusinessLogicLayer
Imports BE = BusinessEntities


Partial Class DetalleServicio
    Inherits System.Web.UI.Page

    Dim errores As String
    Dim mensaje As String

    Public Shared Categoria As String
    Public Shared Criterio As String

 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then

            'Capturamos los parámetros enviados desde la página  BuscarServicios.aspx
            Dim Servicio As String


            Servicio = Request.QueryString("Servicio")
            Categoria = Request.QueryString("Categoria")
            Criterio = Request.QueryString("Criterio")


            'Hacemos una referencia a la clase
            Dim capanegocios As New ServicioBL
            Dim objeto As New BE.ServicioBE

            objeto.codigo = Servicio
            objeto.tiposervicio = Categoria
            objeto.nombreservicio = Criterio
            Try
                'Invocamos al método DetalleServicio definido previamente en la clase
                dldetalle.DataSource = capanegocios.DetalleServicio(objeto)
                dldetalle.DataBind()

            Catch ex As Exception

                errores = capanegocios.ChapaError
                Response.Redirect("Errores.aspx?id=" & errores)


            Finally
                'Liberamos recursos
                capanegocios = Nothing
                objeto = Nothing
            End Try


        End If

      
    End Sub


    Sub AgregaralCarrito(ByVal Src As Object, ByVal Args As CommandEventArgs)
        'Agregar item al carrito de compras 
        Dim servicio As String
        'Recuperamos el código del producto enviado al carrito
        servicio = Args.CommandName
        If Session("CARRITO") = "" Then
            Randomize()
            'Generamos un código de carrito único para cada usuario
            Session("CARRITO") = (Int((9999999 - 1111111 + 1) * Rnd() + 1111111)).ToString()
        End If



        'Hacemos una referencia a la clase
        Dim capanegocios As New CarritoBL
        Dim objeto As New BE.CarritoBE

        'revisar c odigo
        objeto.codigo = Session("CARRITO")
        objeto.codigoservicio = servicio

        'Invocamos al método LlenarCarrito definido previamente en la clase
        capanegocios.LlenarCarrito(objeto)
        'Liberamos recursos
        capanegocios = Nothing
        'Cambiamos la apariencia del botón
        Src.Text = "Item Añadido"
        Src.Style("background-color") = "#FF0000"
        Src.Style("color") = "#FFFFFF"
    End Sub

    Protected Sub lbregresar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbregresar.Click
        Response.Redirect("BuscarServicios.aspx?Categoria=" & Categoria & "&Criterio=" & Criterio)
    End Sub
End Class
